;		Compuserve Login Script File
;              Please see READ.ME for details
;LOGON TO COMPUSERVE THRU COMPUSERVE NETWORK
jump begin
label PLEASE
clear
me     PLEASE TRY AGAIN.  COMPUSERVE IS NOT RESPONDING.
.
bye
abort 
label begin
WAit Delay 20
REply ^C
WAit String "ID:"
REply *** ID ***|
WAit String "password"
REply *** PW ***|
otimeout 200 jump PLEASE
wait char "!" 
;SECTION TO LOGON TO COMPUSERVE THRU TELENET
;jump begin
;label PLEASE
;clear
;ME   PLEASE TRY AGAIN.  COMPUSERVE IS NOT RESPONDING.
;.
;bye
;abort 
;label begin
;WAit Delay 20
;REply ^C
;reply @
;wait delay 10
;reply |
;wait delay 10
;reply |
;whenever "TERMINAL=" reply |
;wait char "@"
;reply C 202202|
;WAit String "ID:"
;REply *** ID ***|
;WAit String "password"
;REply *** PW ***|
;otimeout 200 jump PLEASE
;wait char "!" 
;END TELENET SECTION
;SECTION TO LOGON TO COMPUSERVE THRU TYMNET
;jump begin
;label PLEASE
;clear
;ME     PLEASE TRY AGAIN.  COMPUSERVE IS NOT RESPONDING.
;.
;bye
;abort 
;label begin
;WAit Delay 20
;REply ^C
;reply a|
;wait string "please log in:"
;reply CPS|
;WAit String "ID:"
;REply *** ID ***|
;WAit String "password"
;REply *** PW ***|
;otimeout 200 jump PLEASE
;wait char "!"
;END TYMNET SECTION 